home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / pc / pc.dir / 00035_hit.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  1.1 KB  |  35 lines
  1. on hit
  2.   global fire1, fire2, fire3, fire4, aliencast, alienblow
  3.   repeat with q = 3 to 35
  4.     set aliencast to the castNum of sprite q
  5.     if (fire1 > 0) and (getAt(alienblow, q - 2) = 6) and sprite q intersects 41 then
  6.       set the castNum of sprite q to 7
  7.       deleteAt(alienblow, q - 2)
  8.       addAt(alienblow, q - 2, 7)
  9.       set fire1 to 0
  10.       puppetSound(2, "BOOM")
  11.     end if
  12.     if (fire2 > 0) and (getAt(alienblow, q - 2) = 6) and sprite q intersects 42 then
  13.       set the castNum of sprite q to 7
  14.       deleteAt(alienblow, q - 2)
  15.       addAt(alienblow, q - 2, 7)
  16.       set fire2 to 0
  17.       puppetSound(2, "BOOM")
  18.     end if
  19.     if (fire3 > 0) and (getAt(alienblow, q - 2) = 6) and sprite q intersects 43 then
  20.       set the castNum of sprite q to 7
  21.       deleteAt(alienblow, q - 2)
  22.       addAt(alienblow, q - 2, 7)
  23.       set fire3 to 0
  24.       puppetSound(2, "BOOM")
  25.     end if
  26.     if (fire4 > 0) and (getAt(alienblow, q - 2) = 6) and sprite q intersects 44 then
  27.       set the castNum of sprite q to 7
  28.       deleteAt(alienblow, q - 2)
  29.       addAt(alienblow, q - 2, 7)
  30.       set fire4 to 0
  31.       puppetSound(2, "BOOM")
  32.     end if
  33.   end repeat
  34. end
  35.